#!/usr/bin/perl -w

# find_8bit
# File ID: 292fa714-5d3a-11df-83e3-90e6ba3022ac
# Lister ut linjer med 8-bits tegn

while (<>) {
	/[\x80-\xFF]/ && print;
}
